unit UdmPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UdmKernelPrincipal, WideStrings, FMTBcd, ADODB, SqlExpr, DB,
  DBClient, Provider, DBXDynalink, inifiles, AppProt,
  untKernel_Interface_RegrasBD, DBXMsSQL, DBXFirebird, UCDataConnector,
  UCDBXConn, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient;

type
  TdmPrincipal = class(TdmKernelPrincipal)
    conBaseCentral: TSQLConnection;
    procedure DataModuleCreate(Sender: TObject);
  private

  public
    procedure ConectaServidor(); override;
    procedure DesconectaServidor; override;
    procedure DepoisConectaServidor; override;
    procedure Configura_Conexao_DB; override;
    procedure AbreConexaoRemota;
  end;

var
  dmPrincipal: TdmPrincipal;

implementation

uses UclKernel_Conexao, UKernel_VariaveisPublic, Uclkernel_Config,
  UntKernel_Classe_SQLServer, UKernel_Exception;

{$R *.dfm}
{ TdmPrincipal }

procedure TdmPrincipal.AbreConexaoRemota;
begin

 
end;

procedure TdmPrincipal.ConectaServidor();
begin
  inherited;

end;

procedure TdmPrincipal.Configura_Conexao_DB;
begin
  inherited;

end;

procedure TdmPrincipal.DataModuleCreate(Sender: TObject);
begin
  // Define qual o banco de dados sera utilizado
  Tipo_DB := bdSQLServer;
  // Define qual o tipo de arquivo ini usado
  Tipo_CON := conlivre;
  inherited;

  // Passa a conexao atual para uma variavel
  FConexao := conPrincipalKernel;
end;

procedure TdmPrincipal.DepoisConectaServidor;
begin

end;

procedure TdmPrincipal.DesconectaServidor;
begin
  inherited;

end;

end.
